﻿Imports System.Data
Imports CondorTravel.BC
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL 
Public Class ReportePaquetes
    Inherits PaginaBase

    Dim itemgridview As GridViewRow
    Dim casilla As System.Web.UI.WebControls.CheckBox
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargarEstado()
            LimpiarForm()
            IniciliazaSesiones()

            txtFecIni.Attributes.Add("readonly", "readonly")
            txtFecFin.Attributes.Add("readonly", "readonly")

            cle1.StartDate = "01/01/2000"

            cle2.StartDate = "01/01/2000"

            If Not Session("Nombre") Is Nothing Then
                txtPaquete.Text = Session("Nombre").ToString
            End If
        End If


        If My.Request.Params("__EVENTTARGET") = "MiFuncionPaquete" Then
            CargarDatosPaquete()
        End If


    End Sub

    Sub LimpiarForm()
        txtPaquete.Text = "" : txtFecIni.Text = "" : txtFecFin.Text = "" : cboEstado.SelectedIndex = 0
    End Sub

    Private Sub CargarDatosPaquete()

        If Session("BPCodigoPaquete") = Nothing Then
            txtPaquete.Text = String.Empty
        Else
            'txtPaquete.Text = Session("BPCodigoPaquete")
            txtPaquete.Text = Session("BPNombrePaquete")
        End If
    End Sub

    Public Sub IniciliazaSesiones()

        Session("BPCodigoPaquete") = Nothing
        Session("BPNombrePaquete") = Nothing

    End Sub

    Private Sub CargarEstado()
        Dim listEstadoBE As List(Of EstadoDocBE) = New List(Of EstadoDocBE)
        Dim objEstadoBC As EstadoDocBC = New EstadoDocBC()

        Dim objEstadoSeleccione As EstadoDocBE = New EstadoDocBE
        objEstadoSeleccione.Codigo = 0
        objEstadoSeleccione.Descripcion = "[Seleccione]"
        listEstadoBE.Add(objEstadoSeleccione)

        objEstadoSeleccione.Tipo = "P"
        listEstadoBE.AddRange(objEstadoBC.EstadoListar(objEstadoSeleccione))

        cboEstado.DataSource = listEstadoBE
        cboEstado.DataValueField = "Codigo"
        cboEstado.DataTextField = "Descripcion"
        cboEstado.DataBind()
    End Sub

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnReporte.Click
        Dim objUtil As New Funciones
        Dim strPaquete, strFIni, strFFin, strEstado As String
        strPaquete = "" : strFIni = "" : strFFin = "" : strEstado = ""
        If txtFecFin.Text.Trim <> "" And txtFecIni.Text.Trim <> "" Then
            If CDate(txtFecFin.Text) < CDate(txtFecIni.Text) Then
                Alerta("La fecha final no debe ser menor que la fecha inicial", False, String.Empty)
                Exit Sub
            End If
        End If
        If txtPaquete.Text.Trim <> "" Then
            strPaquete = objUtil.ReemplazarTexto(txtPaquete.Text.Trim)
        End If

        If txtFecIni.Text.Trim <> "" Then
            strFIni = txtFecIni.Text.Trim
        End If

        If txtFecFin.Text.Trim <> "" Then
            strFFin = txtFecFin.Text.Trim
        End If

        If cboEstado.SelectedValue.Trim <> "" And cboEstado.SelectedValue.Trim <> "0" Then
            strEstado = cboEstado.SelectedValue.Trim
        End If

        iFrm_ReportePqt.Attributes("src") = "../Reportes/RptPaquetes.aspx?strPqt=" + strPaquete.Trim + "&strFIni=" + strFIni.Trim + "&strFFin=" + strFFin.Trim + "&strEsta=" + strEstado.Trim
        'LimpiarForm()
    End Sub


End Class